with GNAT.IO;
with Percentages;

procedure Test_Percentages is

   type Percent_Precision_Type is delta 0.01 digits 15;

   Results : Percent_Precision_Type;

   package Percentages_Pkg is new Percentages(

         Percentage_Type => Percent_Precision_Type,

         Qty_Type => Percent_Precision_Type );

begin

   Results := Percentages_Pkg.Percentage( Percent_Precision_Type(120.71),
                                          Percent_Precision_Type(1000.0) );

   GNAT.IO.Put_Line( Percent_Precision_Type'Image( Results ) & " %" );

end Test_Percentages;